home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)z7.d64 / proc.stretch'x < prev    next >
Text File  |  2009-01-03  |  564b  |  19 lines
  1. 0010 ╨╥╧├ STRETCH'X(X,Y,SCRUNCH,WIDTH) ├╠╧╙┼─
  2. 0020   // SCRUNCH > 1 = STRETCH X
  3. 0030   // SCRUNCH < 1 = SHRINK  X
  4. 0040   // SCRUNCH @ 1.1 = PERFECT CIRCLE
  5. 0050   ╒╙┼ GRAPHICS
  6. 0060   X'OLD:=XCOR; Y'OLD:=YCOR
  7. 0070   HEADING'OLD:=HEADING
  8. 0080   WIN'X'MIN:=INQ(23)
  9. 0090   WIN'X'MAX:=INQ(24)
  10. 0100   WIN'Y'MIN:=INQ(25)
  11. 0110   WIN'Y'MAX:=INQ(26)
  12. 0140   MOVETO(X,Y)
  13. 0150   WINDOW(0,(1/SCRUNCH)*319,0,199)
  14. 0160   CIRCLE(XCOR,YCOR,WIDTH)
  15. 0170   WINDOW(WIN'X'MIN,WIN'X'MAX,WIN'Y'MIN,WIN'Y'MAX)
  16. 0180   MOVETO(X'OLD,Y'OLD)
  17. 0190   SETHEADING(HEADING'OLD)
  18. 0200 ┼╬─╨╥╧├ STRETCH'X
  19.